home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G38F / MAC_BAR.Dxr / 00033_Œ€ÿ—ån.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  516 b   |  30 lines
  1. global volset
  2.  
  3. on volupcrt
  4.   repeat while the stillDown
  5.     puppetSprite(24, 1)
  6.     set the castNum of sprite 24 to 13
  7.     updateStage()
  8.   end repeat
  9.   puppetSprite(24, 0)
  10.   set volset to volset + 1
  11.   if volset > 7 then
  12.     set volset to 7
  13.   end if
  14.   volcrt()
  15. end
  16.  
  17. on voldowncrt
  18.   repeat while the stillDown
  19.     puppetSprite(23, 1)
  20.     set the castNum of sprite 23 to 11
  21.     updateStage()
  22.   end repeat
  23.   puppetSprite(23, 0)
  24.   set volset to volset - 1
  25.   if volset < 0 then
  26.     set volset to 0
  27.   end if
  28.   volcrt()
  29. end
  30.